/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / DA / P / PCalculator.cpt / CalcDA sources / CalcDA_ASCII.c

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 43 61 6c 63 44 41 | 5f 41 53 43 49 49 2e 63 |..CalcDA|_ASCII.c|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 01 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 13 57 00 | 00 01 5c a2 ba ad 2a a2 |......W.|..\...*.|
|00000060| ba ad 2a 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..*.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 72 b0 00 00 |........|....r...|
|00000080| 2f 2a 0d 20 2a 20 43 61 | 6c 63 44 41 5f 41 53 43 |/*. * Ca|lcDA_ASC|
|00000090| 49 49 2e 63 20 66 6f 72 | 20 74 68 65 20 50 72 6f |II.c for| the Pro|
|000000a0| 67 72 61 6d 6d 65 72 27 | 73 20 43 61 6c 63 75 6c |grammer'|s Calcul|
|000000b0| 61 74 6f 72 20 70 72 6f | 6a 65 63 74 20 0d 20 2a |ator pro|ject . *|
|000000c0| 20 0d 20 2a 20 43 6f 70 | 79 72 69 67 68 74 20 31 | . * Cop|yright 1|
|000000d0| 39 39 30 2c 20 50 65 74 | 65 72 20 4f 68 6c 65 72 |990, Pet|er Ohler|
|000000e0| 20 0d 20 2a 20 0d 20 2a | 20 41 6c 6c 20 52 69 67 | . * . *| All Rig|
|000000f0| 68 74 73 20 52 65 73 65 | 72 76 65 64 20 0d 20 2a |hts Rese|rved . *|
|00000100| 20 0d 20 2a 20 54 68 65 | 20 50 72 6f 67 72 61 6d | . * The| Program|
|00000110| 6d 65 72 27 73 20 43 61 | 6c 63 75 6c 61 74 6f 72 |mer's Ca|lculator|
|00000120| 20 61 6e 64 20 74 68 65 | 20 73 6f 75 72 63 65 20 | and the| source |
|00000130| 63 6f 64 65 20 61 72 65 | 20 73 68 61 72 65 77 61 |code are| sharewa|
|00000140| 72 65 2e 20 20 54 68 61 | 74 20 6d 65 61 6e 73 0d |re.  Tha|t means.|
|00000150| 20 2a 20 74 68 65 79 20 | 61 72 65 20 6e 6f 74 20 | * they |are not |
|00000160| 66 72 65 65 2e 20 20 49 | 66 20 79 6f 75 20 75 73 |free.  I|f you us|
|00000170| 65 20 65 69 74 68 65 72 | 20 74 68 65 20 73 6f 75 |e either| the sou|
|00000180| 72 63 65 20 6f 72 20 74 | 68 65 20 63 61 6c 63 75 |rce or t|he calcu|
|00000190| 6c 61 74 6f 72 20 74 68 | 65 6e 0d 20 2a 20 73 65 |lator th|en. * se|
|000001a0| 6e 64 20 24 35 20 6f 72 | 20 24 31 30 20 28 77 68 |nd $5 or| $10 (wh|
|000001b0| 61 74 65 76 65 72 20 79 | 6f 75 20 66 65 65 6c 20 |atever y|ou feel |
|000001c0| 69 74 73 20 77 6f 72 74 | 68 29 20 74 6f 20 74 68 |its wort|h) to th|
|000001d0| 65 20 61 64 64 72 65 73 | 73 20 74 68 61 74 20 66 |e addres|s that f|
|000001e0| 6f 6c 6c 6f 77 73 2e 0d | 20 2a 20 54 68 65 20 73 |ollows..| * The s|
|000001f0| 6f 75 72 63 65 20 61 6e | 64 20 63 61 6c 63 75 6c |ource an|d calcul|
|00000200| 61 74 6f 72 20 63 61 6e | 20 62 65 20 64 69 73 74 |ator can| be dist|
|00000210| 72 69 62 75 74 65 64 20 | 66 6f 72 20 66 72 65 65 |ributed |for free|
|00000220| 2e 20 20 50 72 69 6f 72 | 20 74 6f 20 61 6e 79 20 |.  Prior| to any |
|00000230| 73 61 6c 65 0d 20 2a 20 | 6f 66 20 65 69 74 68 65 |sale. * |of eithe|
|00000240| 72 20 74 68 65 20 73 6f | 75 72 63 65 20 63 6f 64 |r the so|urce cod|
|00000250| 65 20 6f 72 20 74 68 65 | 20 63 61 6c 63 75 6c 61 |e or the| calcula|
|00000260| 74 6f 72 20 6d 79 20 70 | 65 72 6d 69 73 73 69 6f |tor my p|ermissio|
|00000270| 6e 20 6d 75 73 74 20 62 | 65 0d 20 2a 20 6f 62 74 |n must b|e. * obt|
|00000280| 61 69 6e 65 64 2e 20 20 | 54 68 69 73 20 69 6e 63 |ained.  |This inc|
|00000290| 6c 75 64 65 73 20 73 61 | 6c 65 73 20 62 79 20 73 |ludes sa|les by s|
|000002a0| 68 61 72 65 77 61 72 65 | 20 64 69 73 74 72 69 62 |hareware| distrib|
|000002b0| 75 74 69 6f 6e 20 68 6f | 75 73 65 73 20 74 68 61 |ution ho|uses tha|
|000002c0| 74 20 73 65 6c 6c 0d 20 | 2a 20 73 68 61 72 65 77 |t sell. |* sharew|
|000002d0| 61 72 65 2e 20 20 0d 20 | 2a 20 0d 20 2a 20 50 65 |are.  . |* . * Pe|
|000002e0| 74 65 72 20 4f 68 6c 65 | 72 20 0d 20 2a 20 0d 20 |ter Ohle|r . * . |
|000002f0| 2a 20 33 31 38 34 20 52 | 6f 68 72 65 72 20 44 72 |* 3184 R|ohrer Dr|
|00000300| 69 76 65 2c 20 4c 61 66 | 61 79 65 74 74 65 20 43 |ive, Laf|ayette C|
|00000310| 41 20 39 34 35 34 39 20 | 0d 20 2a 20 0d 20 2a 20 |A 94549 |. * . * |
|00000320| 28 34 31 35 29 20 32 38 | 34 2d 37 38 32 38 20 0d |(415) 28|4-7828 .|
|00000330| 20 2a 20 0d 20 2a 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a | * . * *|********|
|00000340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000350| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000360| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000370| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000380| 2a 2a 0d 20 2a 20 0d 20 | 2a 20 49 20 63 61 6e 20 |**. * . |* I can |
|00000390| 6e 65 76 65 72 20 72 65 | 6d 65 6d 62 65 72 20 61 |never re|member a|
|000003a0| 6c 6c 20 74 68 65 20 41 | 53 43 49 49 20 63 68 61 |ll the A|SCII cha|
|000003b0| 72 61 63 74 65 72 73 20 | 75 73 65 64 20 6f 6e 20 |racters |used on |
|000003c0| 74 68 65 20 4d 41 43 20 | 61 6e 64 20 63 61 6e 20 |the MAC |and can |
|000003d0| 6f 6e 6c 79 0d 20 2a 20 | 72 65 6d 65 6d 62 65 72 |only. * |remember|
|000003e0| 20 61 20 66 65 77 20 6f | 66 20 74 68 65 20 68 65 | a few o|f the he|
|000003f0| 78 20 76 61 6c 75 65 73 | 20 66 6f 72 20 74 68 65 |x values| for the|
|00000400| 20 63 68 61 72 61 63 74 | 65 72 20 73 65 74 2e 20 | charact|er set. |
|00000410| 20 54 68 65 20 41 53 43 | 49 49 20 77 69 6e 64 6f | The ASC|II windo|
|00000420| 77 0d 20 2a 20 64 69 73 | 70 6c 61 79 73 20 74 68 |w. * dis|plays th|
|00000430| 65 20 41 53 43 49 49 20 | 63 68 61 72 61 63 74 65 |e ASCII |characte|
|00000440| 72 20 69 6e 20 61 6e 20 | 61 72 72 61 79 20 6f 66 |r in an |array of|
|00000450| 20 74 68 65 20 68 69 67 | 68 20 61 6e 64 20 6c 6f | the hig|h and lo|
|00000460| 77 20 62 79 74 65 73 20 | 66 6f 72 0d 20 2a 20 65 |w bytes |for. * e|
|00000470| 61 63 68 20 63 68 61 72 | 61 63 74 65 72 2e 20 20 |ach char|acter.  |
|00000480| 0d 20 2a 2f 0d 23 69 6e | 63 6c 75 64 65 20 3c 44 |. */.#in|clude <D|
|00000490| 65 76 69 63 65 4d 67 72 | 2e 68 3e 0d 23 69 6e 63 |eviceMgr|.h>.#inc|
|000004a0| 6c 75 64 65 20 3c 57 69 | 6e 64 6f 77 4d 67 72 2e |lude <Wi|ndowMgr.|
|000004b0| 68 3e 0d 23 69 6e 63 6c | 75 64 65 20 3c 70 61 73 |h>.#incl|ude <pas|
|000004c0| 63 61 6c 2e 68 3e 0d 0d | 23 69 6e 63 6c 75 64 65 |cal.h>..|#include|
|000004d0| 20 22 43 61 6c 63 44 41 | 2e 68 22 0d 0d 2f 2a 0d | "CalcDA|.h"../*.|
|000004e0| 20 2a 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | * *****|********|
|000004f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000500| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000510| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000520| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 20 |********|******. |
|00000530| 2a 20 23 64 65 66 69 6e | 65 73 0d 20 2a 2f 0d 23 |* #defin|es. */.#|
|00000540| 64 65 66 69 6e 65 20 41 | 53 43 49 49 5f 57 49 44 |define A|SCII_WID|
|00000550| 54 48 09 33 31 38 0d 23 | 64 65 66 69 6e 65 20 41 |TH.318.#|define A|
|00000560| 53 43 49 49 5f 48 49 45 | 47 48 54 09 32 37 30 0d |SCII_HIE|GHT.270.|
|00000570| 0d 23 64 65 66 69 6e 65 | 20 41 53 43 49 49 5f 56 |.#define| ASCII_V|
|00000580| 5f 53 50 43 09 31 35 0d | 23 64 65 66 69 6e 65 20 |_SPC.15.|#define |
|00000590| 41 53 43 49 49 5f 48 5f | 53 50 43 09 31 38 0d 23 |ASCII_H_|SPC.18.#|
|000005a0| 64 65 66 69 6e 65 20 41 | 53 43 49 49 5f 56 5f 45 |define A|SCII_V_E|
|000005b0| 44 47 45 09 33 36 0d 23 | 64 65 66 69 6e 65 20 41 |DGE.36.#|define A|
|000005c0| 53 43 49 49 5f 48 5f 45 | 44 47 45 09 33 30 0d 0d |SCII_H_E|DGE.30..|
|000005d0| 2f 2a 0d 20 2a 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/*. * **|********|
|000005e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000600| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000610| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000620| 2a 0d 20 2a 20 70 72 6f | 74 6f 74 79 70 65 73 20 |*. * pro|totypes |
|00000630| 0d 20 2a 2f 0d 65 78 74 | 65 72 6e 20 76 6f 69 64 |. */.ext|ern void|
|00000640| 09 43 65 6e 74 65 72 44 | 72 61 77 50 53 74 72 28 |.CenterD|rawPStr(|
|00000650| 63 68 61 72 20 2a 73 74 | 72 2c 20 69 6e 74 20 6c |char *st|r, int l|
|00000660| 65 66 74 2c 20 69 6e 74 | 20 72 69 67 68 74 2c 20 |eft, int| right, |
|00000670| 69 6e 74 20 62 6f 74 74 | 6f 6d 29 3b 0d 65 78 74 |int bott|om);.ext|
|00000680| 65 72 6e 20 76 6f 69 64 | 09 4d 6f 76 65 44 72 61 |ern void|.MoveDra|
|00000690| 77 50 53 74 72 28 63 68 | 61 72 20 2a 73 74 72 2c |wPStr(ch|ar *str,|
|000006a0| 20 69 6e 74 20 68 2c 20 | 69 6e 74 20 76 29 3b 0d | int h, |int v);.|
|000006b0| 0d 69 6e 74 09 44 6f 41 | 73 63 69 69 28 76 6f 69 |.int.DoA|scii(voi|
|000006c0| 64 29 3b 0d 76 6f 69 64 | 09 55 70 64 61 74 65 41 |d);.void|.UpdateA|
|000006d0| 73 63 69 69 28 76 6f 69 | 64 29 3b 0d 0d 2f 2a 0d |scii(voi|d);../*.|
|000006e0| 20 2a 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | * *****|********|
|000006f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000700| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000710| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000720| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 20 |********|******. |
|00000730| 2a 20 76 61 72 69 61 62 | 6c 65 73 20 0d 20 2a 2f |* variab|les . */|
|00000740| 0d 65 78 74 65 72 6e 20 | 44 43 74 6c 50 74 72 20 |.extern |DCtlPtr |
|00000750| 09 64 65 76 69 63 65 43 | 6f 6e 74 72 6f 6c 45 6e |.deviceC|ontrolEn|
|00000760| 74 72 79 3b 09 2f 2a 20 | 20 64 65 76 69 63 65 20 |try;./* | device |
|00000770| 63 6f 6e 74 72 6f 6c 20 | 65 6e 74 72 79 20 20 09 |control |entry  .|
|00000780| 2a 2f 0d 0d 57 69 6e 64 | 6f 77 50 74 72 09 41 73 |*/..Wind|owPtr.As|
|00000790| 63 69 69 57 69 6e 64 6f | 77 20 3d 20 30 4c 3b 0d |ciiWindo|w = 0L;.|
|000007a0| 0d 2f 2a 20 54 68 65 20 | 66 69 72 73 74 20 33 32 |./* The |first 32|
|000007b0| 20 6e 6f 6e 2d 70 72 69 | 6e 74 69 6e 67 20 63 68 | non-pri|nting ch|
|000007c0| 61 72 61 63 74 65 72 73 | 2e 20 2a 2f 0d 63 68 61 |aracters|. */.cha|
|000007d0| 72 09 6c 6f 77 41 73 63 | 69 69 5b 33 32 5d 5b 34 |r.lowAsc|ii[32][4|
|000007e0| 5d 20 3d 20 7b 20 22 5c | 70 4e 55 4c 22 2c 20 22 |] = { "\|pNUL", "|
|000007f0| 5c 70 53 4f 48 22 2c 20 | 22 5c 70 53 54 58 22 2c |\pSOH", |"\pSTX",|
|00000800| 20 22 5c 70 45 54 58 22 | 2c 20 22 5c 70 45 4f 54 | "\pETX"|, "\pEOT|
|00000810| 22 2c 20 22 5c 70 45 4e | 51 22 2c 0d 09 09 09 20 |", "\pEN|Q",.... |
|00000820| 20 20 20 22 5c 70 41 43 | 4b 22 2c 20 22 5c 70 42 |   "\pAC|K", "\pB|
|00000830| 45 4c 22 2c 20 22 5c 70 | 42 53 22 2c 20 20 22 5c |EL", "\p|BS",  "\|
|00000840| 70 48 54 22 2c 20 20 22 | 5c 70 4c 46 22 2c 20 20 |pHT",  "|\pLF",  |
|00000850| 22 5c 70 56 54 22 2c 0d | 09 09 09 20 20 20 20 22 |"\pVT",.|...    "|
|00000860| 5c 70 46 46 22 2c 20 20 | 22 5c 70 43 52 22 2c 20 |\pFF",  |"\pCR", |
|00000870| 20 22 5c 70 53 4f 22 2c | 20 20 22 5c 70 53 49 22 | "\pSO",|  "\pSI"|
|00000880| 2c 20 20 22 5c 70 44 4c | 45 22 2c 20 22 5c 70 44 |,  "\pDL|E", "\pD|
|00000890| 43 31 22 2c 0d 09 09 09 | 20 20 20 20 22 5c 70 44 |C1",....|    "\pD|
|000008a0| 43 32 22 2c 20 22 5c 70 | 44 43 33 22 2c 20 22 5c |C2", "\p|DC3", "\|
|000008b0| 70 44 43 34 22 2c 20 22 | 5c 70 4e 41 4b 22 2c 20 |pDC4", "|\pNAK", |
|000008c0| 22 5c 70 53 59 4e 22 2c | 20 22 5c 70 45 54 42 22 |"\pSYN",| "\pETB"|
|000008d0| 2c 0d 09 09 09 20 20 20 | 20 22 5c 70 43 41 4e 22 |,....   | "\pCAN"|
|000008e0| 2c 20 22 5c 70 45 4d 22 | 2c 20 20 22 5c 70 53 55 |, "\pEM"|,  "\pSU|
|000008f0| 42 22 2c 20 22 5c 70 45 | 53 43 22 2c 20 22 5c 70 |B", "\pE|SC", "\p|
|00000900| 46 53 22 2c 20 20 22 5c | 70 47 53 22 2c 0d 09 09 |FS",  "\|pGS",...|
|00000910| 09 20 20 20 20 22 5c 70 | 52 53 22 2c 20 20 22 5c |.    "\p|RS",  "\|
|00000920| 70 55 53 22 0d 09 09 09 | 20 20 7d 3b 0d 0d 2f 2a |pUS"....|  };../*|
|00000930| 0d 20 2a 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |. * ****|********|
|00000940| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000950| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000960| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000970| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00000980| 20 2a 20 66 75 6e 63 74 | 69 6f 6e 73 20 0d 20 2a | * funct|ions . *|
|00000990| 2f 0d 69 6e 74 0d 44 6f | 41 73 63 69 69 28 29 0d |/.int.Do|Ascii().|
|000009a0| 7b 0d 09 47 72 61 66 50 | 74 72 09 73 61 76 65 50 |{..GrafP|tr.saveP|
|000009b0| 6f 72 74 3b 0d 09 52 65 | 63 74 09 62 6f 75 6e 64 |ort;..Re|ct.bound|
|000009c0| 73 3b 0d 09 50 6f 69 6e | 74 09 70 74 3b 0d 0d 09 |s;..Poin|t.pt;...|
|000009d0| 47 65 74 50 6f 72 74 28 | 26 73 61 76 65 50 6f 72 |GetPort(|&savePor|
|000009e0| 74 29 3b 0d 09 69 66 20 | 28 41 73 63 69 69 57 69 |t);..if |(AsciiWi|
|000009f0| 6e 64 6f 77 29 20 7b 0d | 09 09 44 69 73 70 6f 73 |ndow) {.|..Dispos|
|00000a00| 65 57 69 6e 64 6f 77 28 | 41 73 63 69 69 57 69 6e |eWindow(|AsciiWin|
|00000a10| 64 6f 77 29 3b 0d 09 09 | 41 73 63 69 69 57 69 6e |dow);...|AsciiWin|
|00000a20| 64 6f 77 20 3d 20 30 4c | 3b 0d 09 7d 20 65 6c 73 |dow = 0L|;..} els|
|00000a30| 65 20 7b 0d 09 09 53 65 | 74 50 6f 72 74 28 43 61 |e {...Se|tPort(Ca|
|00000a40| 6c 63 57 69 6e 64 6f 77 | 29 3b 0d 09 09 53 65 74 |lcWindow|);...Set|
|00000a50| 50 74 28 26 70 74 2c 20 | 43 61 6c 63 57 69 6e 64 |Pt(&pt, |CalcWind|
|00000a60| 6f 77 2d 3e 70 6f 72 74 | 52 65 63 74 2e 72 69 67 |ow->port|Rect.rig|
|00000a70| 68 74 2c 20 43 61 6c 63 | 57 69 6e 64 6f 77 2d 3e |ht, Calc|Window->|
|00000a80| 70 6f 72 74 52 65 63 74 | 2e 74 6f 70 29 3b 0d 09 |portRect|.top);..|
|00000a90| 09 4c 6f 63 61 6c 54 6f | 47 6c 6f 62 61 6c 28 26 |.LocalTo|Global(&|
|00000aa0| 70 74 29 3b 0d 09 09 70 | 74 2e 68 20 2b 3d 20 36 |pt);...p|t.h += 6|
|00000ab0| 3b 0d 09 09 70 74 2e 76 | 20 2b 3d 20 32 30 3b 0d |;...pt.v| += 20;.|
|00000ac0| 09 09 53 65 74 52 65 63 | 74 28 26 62 6f 75 6e 64 |..SetRec|t(&bound|
|00000ad0| 73 2c 20 70 74 2e 68 2c | 20 70 74 2e 76 2c 20 70 |s, pt.h,| pt.v, p|
|00000ae0| 74 2e 68 20 2b 20 41 53 | 43 49 49 5f 57 49 44 54 |t.h + AS|CII_WIDT|
|00000af0| 48 2c 0d 09 09 09 70 74 | 2e 76 20 2b 20 41 53 43 |H,....pt|.v + ASC|
|00000b00| 49 49 5f 48 49 45 47 48 | 54 29 3b 0d 09 09 2f 2a |II_HIEGH|T);.../*|
|00000b10| 0d 09 09 20 2a 20 4e 6f | 20 63 6c 6f 73 65 20 62 |... * No| close b|
|00000b20| 6f 78 2e 20 20 49 66 20 | 6f 6e 65 20 69 73 20 61 |ox.  If |one is a|
|00000b30| 6c 6c 6f 77 65 64 20 74 | 68 65 6e 20 63 6c 6f 73 |llowed t|hen clos|
|00000b40| 69 6e 67 20 74 68 65 20 | 41 53 43 49 49 0d 09 09 |ing the |ASCII...|
|00000b50| 20 2a 20 77 69 6e 64 6f | 77 20 77 69 6c 6c 20 63 | * windo|w will c|
|00000b60| 61 75 73 65 20 74 68 65 | 20 44 41 20 74 6f 20 67 |ause the| DA to g|
|00000b70| 65 74 20 61 20 67 6f 6f | 64 62 79 65 20 77 68 65 |et a goo|dbye whe|
|00000b80| 6e 20 69 74 20 69 73 0d | 09 09 20 2a 20 63 6c 6f |n it is.|.. * clo|
|00000b90| 73 65 64 2e 20 20 54 6f | 20 61 76 6f 69 64 20 74 |sed.  To| avoid t|
|00000ba0| 68 69 73 20 62 65 68 61 | 76 69 6f 72 20 77 65 20 |his beha|vior we |
|00000bb0| 75 73 65 20 61 20 62 75 | 74 74 6f 6e 20 6f 6e 20 |use a bu|tton on |
|00000bc0| 74 68 65 0d 09 09 20 2a | 20 63 61 6c 63 75 6c 61 |the... *| calcula|
|00000bd0| 74 6f 72 20 74 6f 20 63 | 6c 6f 73 65 20 74 68 65 |tor to c|lose the|
|00000be0| 20 41 53 43 49 49 20 77 | 69 6e 64 6f 77 2e 20 20 | ASCII w|indow.  |
|00000bf0| 0d 09 09 20 2a 2f 0d 09 | 09 69 66 20 28 30 4c 20 |... */..|.if (0L |
|00000c00| 3d 3d 20 28 41 73 63 69 | 69 57 69 6e 64 6f 77 20 |== (Asci|iWindow |
|00000c10| 3d 20 4e 65 77 57 69 6e | 64 6f 77 28 30 4c 2c 20 |= NewWin|dow(0L, |
|00000c20| 26 62 6f 75 6e 64 73 2c | 20 22 5c 70 41 53 43 49 |&bounds,| "\pASCI|
|00000c30| 49 20 43 68 61 72 74 22 | 2c 0d 09 09 09 09 09 09 |I Chart"|,.......|
|00000c40| 20 20 20 54 52 55 45 2c | 20 31 38 2c 20 2d 31 4c |   TRUE,| 18, -1L|
|00000c50| 2c 20 46 41 4c 53 45 2c | 20 30 4c 29 29 29 0d 09 |, FALSE,| 0L)))..|
|00000c60| 09 09 72 65 74 75 72 6e | 20 2d 31 3b 0d 09 09 2f |..return| -1;.../|
|00000c70| 2a 20 49 4d 50 4f 52 54 | 41 4e 54 20 2d 20 73 65 |* IMPORT|ANT - se|
|00000c80| 74 20 74 68 65 20 77 69 | 6e 64 6f 77 6b 69 6e 64 |t the wi|ndowkind|
|00000c90| 20 74 6f 20 74 68 65 20 | 64 43 74 6c 52 65 66 4e | to the |dCtlRefN|
|00000ca0| 75 6d 20 2a 2f 0d 09 09 | 28 28 57 69 6e 64 6f 77 |um */...|((Window|
|00000cb0| 50 65 65 6b 29 41 73 63 | 69 69 57 69 6e 64 6f 77 |Peek)Asc|iiWindow|
|00000cc0| 29 2d 3e 77 69 6e 64 6f | 77 4b 69 6e 64 20 3d 20 |)->windo|wKind = |
|00000cd0| 64 65 76 69 63 65 43 6f | 6e 74 72 6f 6c 45 6e 74 |deviceCo|ntrolEnt|
|00000ce0| 72 79 2d 3e 64 43 74 6c | 52 65 66 4e 75 6d 3b 0d |ry->dCtl|RefNum;.|
|00000cf0| 09 7d 0d 09 53 65 74 50 | 6f 72 74 28 73 61 76 65 |.}..SetP|ort(save|
|00000d00| 50 6f 72 74 29 3b 0d 09 | 72 65 74 75 72 6e 20 30 |Port);..|return 0|
|00000d10| 3b 0d 7d 0d 0d 76 6f 69 | 64 0d 55 70 64 61 74 65 |;.}..voi|d.Update|
|00000d20| 41 73 63 69 69 28 29 0d | 7b 0d 09 69 6e 74 09 68 |Ascii().|{..int.h|
|00000d30| 2c 20 76 2c 20 69 2c 20 | 63 68 3b 0d 09 63 68 61 |, v, i, |ch;..cha|
|00000d40| 72 09 2a 63 3b 0d 09 52 | 65 63 74 09 62 6f 75 6e |r.*c;..R|ect.boun|
|00000d50| 64 73 20 3d 20 7b 20 41 | 53 43 49 49 5f 56 5f 45 |ds = { A|SCII_V_E|
|00000d60| 44 47 45 20 2d 20 31 32 | 2c 0d 09 09 09 20 20 20 |DGE - 12|,....   |
|00000d70| 41 53 43 49 49 5f 48 5f | 45 44 47 45 20 2d 20 41 |ASCII_H_|EDGE - A|
|00000d80| 53 43 49 49 5f 48 5f 53 | 50 43 20 2f 20 32 20 2b |SCII_H_S|PC / 2 +|
|00000d90| 20 33 2c 0d 09 09 09 20 | 20 20 41 53 43 49 49 5f | 3,.... |  ASCII_|
|00000da0| 56 5f 45 44 47 45 20 2b | 20 31 36 20 2a 20 41 53 |V_EDGE +| 16 * AS|
|00000db0| 43 49 49 5f 56 5f 53 50 | 43 20 2d 20 31 32 2c 0d |CII_V_SP|C - 12,.|
|00000dc0| 09 09 09 20 20 20 41 53 | 43 49 49 5f 48 5f 45 44 |...   AS|CII_H_ED|
|00000dd0| 47 45 20 2b 20 31 36 20 | 2a 20 41 53 43 49 49 5f |GE + 16 |* ASCII_|
|00000de0| 48 5f 53 50 43 20 2d 20 | 41 53 43 49 49 5f 48 5f |H_SPC - |ASCII_H_|
|00000df0| 53 50 43 20 2f 20 32 20 | 2b 20 33 20 7d 3b 0d 09 |SPC / 2 |+ 3 };..|
|00000e00| 2f 2a 0d 09 20 2a 20 57 | 65 20 75 73 65 20 6f 75 |/*.. * W|e use ou|
|00000e10| 72 20 6f 77 6e 20 70 61 | 74 74 65 72 6e 73 20 73 |r own pa|tterns s|
|00000e20| 69 6e 63 65 20 74 68 65 | 20 67 6c 6f 62 61 6c 73 |ince the| globals|
|00000e30| 20 66 6f 72 20 71 75 69 | 63 6b 64 72 61 77 20 61 | for qui|ckdraw a|
|00000e40| 72 65 20 6e 6f 74 0d 09 | 20 2a 20 64 69 72 65 63 |re not..| * direc|
|00000e50| 74 6c 79 20 61 76 61 69 | 6c 61 62 6c 65 20 69 6e |tly avai|lable in|
|00000e60| 20 61 20 44 41 2e 20 20 | 28 77 69 74 68 6f 75 74 | a DA.  |(without|
|00000e70| 20 75 73 69 6e 67 20 61 | 20 68 61 72 64 63 6f 64 | using a| hardcod|
|00000e80| 65 64 20 61 64 64 72 65 | 73 73 0d 09 20 2a 20 66 |ed addre|ss.. * f|
|00000e90| 6f 72 20 74 68 65 6d 20 | 61 6e 64 20 77 6f 72 6b |or them |and work|
|00000ea0| 69 6e 67 20 77 69 74 68 | 20 6f 66 66 73 65 74 73 |ing with| offsets|
|00000eb0| 2e 20 20 49 20 6c 69 6b | 65 20 74 6f 20 61 76 6f |.  I lik|e to avo|
|00000ec0| 69 64 20 74 68 61 74 20 | 77 68 65 6e 0d 09 20 2a |id that |when.. *|
|00000ed0| 20 70 6f 73 73 69 62 6c | 65 2e 29 0d 09 20 2a 2f | possibl|e.).. */|
|00000ee0| 0d 09 50 61 74 74 65 72 | 6e 09 6d 79 47 72 61 79 |..Patter|n.myGray|
|00000ef0| 20 3d 20 7b 20 31 37 30 | 2c 20 38 35 2c 20 31 37 | = { 170|, 85, 17|
|00000f00| 30 2c 20 38 35 2c 20 31 | 37 30 2c 20 38 35 2c 20 |0, 85, 1|70, 85, |
|00000f10| 31 37 30 2c 20 38 35 20 | 7d 3b 0d 09 50 61 74 74 |170, 85 |};..Patt|
|00000f20| 65 72 6e 09 6d 79 42 6c | 61 63 6b 20 3d 20 7b 20 |ern.myBl|ack = { |
|00000f30| 32 35 35 2c 20 32 35 35 | 2c 20 32 35 35 2c 20 32 |255, 255|, 255, 2|
|00000f40| 35 35 2c 20 32 35 35 2c | 20 32 35 35 2c 20 32 35 |55, 255,| 255, 25|
|00000f50| 35 2c 20 32 35 35 20 7d | 3b 0d 0d 09 54 65 78 74 |5, 255 }|;...Text|
|00000f60| 46 6f 6e 74 28 63 6f 75 | 72 69 65 72 29 3b 0d 09 |Font(cou|rier);..|
|00000f70| 54 65 78 74 53 69 7a 65 | 28 31 32 29 3b 0d 09 54 |TextSize|(12);..T|
|00000f80| 65 78 74 46 61 63 65 28 | 62 6f 6c 64 29 3b 0d 0d |extFace(|bold);..|
|00000f90| 09 66 6f 72 20 28 69 20 | 3d 20 30 2c 20 63 20 3d |.for (i |= 0, c =|
|00000fa0| 20 22 68 69 67 68 20 62 | 79 74 65 22 3b 20 2a 63 | "high b|yte"; *c|
|00000fb0| 3b 20 63 2b 2b 2c 20 69 | 2b 2b 29 20 7b 0d 09 09 |; c++, i|++) {...|
|00000fc0| 4d 6f 76 65 54 6f 28 34 | 2c 20 69 20 2a 20 31 32 |MoveTo(4|, i * 12|
|00000fd0| 20 2b 20 28 62 6f 75 6e | 64 73 2e 62 6f 74 74 6f | + (boun|ds.botto|
|00000fe0| 6d 20 2b 20 62 6f 75 6e | 64 73 2e 74 6f 70 29 20 |m + boun|ds.top) |
|00000ff0| 2f 20 32 20 2d 20 35 34 | 29 3b 0d 09 09 44 72 61 |/ 2 - 54|);...Dra|
|00001000| 77 43 68 61 72 28 2a 63 | 29 3b 0d 09 7d 0d 09 43 |wChar(*c|);..}..C|
|00001010| 65 6e 74 65 72 44 72 61 | 77 50 53 74 72 28 22 5c |enterDra|wPStr("\|
|00001020| 70 6c 6f 77 20 62 79 74 | 65 20 22 2c 20 62 6f 75 |plow byt|e ", bou|
|00001030| 6e 64 73 2e 6c 65 66 74 | 2c 20 62 6f 75 6e 64 73 |nds.left|, bounds|
|00001040| 2e 72 69 67 68 74 2c 20 | 31 30 29 3b 0d 09 50 65 |.right, |10);..Pe|
|00001050| 6e 50 61 74 28 6d 79 47 | 72 61 79 29 3b 0d 09 66 |nPat(myG|ray);..f|
|00001060| 6f 72 20 28 69 20 3d 20 | 30 3b 20 69 20 3c 20 31 |or (i = |0; i < 1|
|00001070| 36 3b 20 69 2b 2b 29 20 | 7b 0d 09 09 63 68 20 3d |6; i++) |{...ch =|
|00001080| 20 69 20 2b 20 28 28 69 | 20 3c 20 31 30 29 20 3f | i + ((i| < 10) ?|
|00001090| 20 27 30 27 20 3a 20 27 | 41 27 20 2d 20 31 30 29 | '0' : '|A' - 10)|
|000010a0| 3b 0d 09 09 4d 6f 76 65 | 54 6f 28 41 53 43 49 49 |;...Move|To(ASCII|
|000010b0| 5f 48 5f 45 44 47 45 20 | 2b 20 69 20 2a 20 41 53 |_H_EDGE |+ i * AS|
|000010c0| 43 49 49 5f 48 5f 53 50 | 43 2c 20 41 53 43 49 49 |CII_H_SP|C, ASCII|
|000010d0| 5f 56 5f 45 44 47 45 20 | 2d 20 31 34 29 3b 0d 09 |_V_EDGE |- 14);..|
|000010e0| 09 44 72 61 77 43 68 61 | 72 28 63 68 29 3b 0d 09 |.DrawCha|r(ch);..|
|000010f0| 09 4d 6f 76 65 54 6f 28 | 41 53 43 49 49 5f 48 5f |.MoveTo(|ASCII_H_|
|00001100| 45 44 47 45 20 2d 20 31 | 34 2c 20 41 53 43 49 49 |EDGE - 1|4, ASCII|
|00001110| 5f 56 5f 45 44 47 45 20 | 2b 20 69 20 2a 20 41 53 |_V_EDGE |+ i * AS|
|00001120| 43 49 49 5f 56 5f 53 50 | 43 29 3b 0d 09 09 44 72 |CII_V_SP|C);...Dr|
|00001130| 61 77 43 68 61 72 28 63 | 68 29 3b 0d 09 7d 0d 09 |awChar(c|h);..}..|
|00001140| 66 6f 72 20 28 69 20 3d | 20 31 3b 20 69 20 3c 20 |for (i =| 1; i < |
|00001150| 31 36 3b 20 69 2b 2b 29 | 20 7b 0d 09 09 4d 6f 76 |16; i++)| {...Mov|
|00001160| 65 54 6f 28 62 6f 75 6e | 64 73 2e 6c 65 66 74 20 |eTo(boun|ds.left |
|00001170| 2b 20 69 20 2a 20 41 53 | 43 49 49 5f 48 5f 53 50 |+ i * AS|CII_H_SP|
|00001180| 43 2c 20 62 6f 75 6e 64 | 73 2e 74 6f 70 29 3b 0d |C, bound|s.top);.|
|00001190| 09 09 4c 69 6e 65 28 30 | 2c 20 62 6f 75 6e 64 73 |..Line(0|, bounds|
|000011a0| 2e 62 6f 74 74 6f 6d 20 | 2d 20 62 6f 75 6e 64 73 |.bottom |- bounds|
|000011b0| 2e 74 6f 70 20 2d 20 31 | 29 3b 0d 09 09 4d 6f 76 |.top - 1|);...Mov|
|000011c0| 65 54 6f 28 62 6f 75 6e | 64 73 2e 6c 65 66 74 2c |eTo(boun|ds.left,|
|000011d0| 20 62 6f 75 6e 64 73 2e | 74 6f 70 20 2b 20 69 20 | bounds.|top + i |
|000011e0| 2a 20 41 53 43 49 49 5f | 56 5f 53 50 43 29 3b 0d |* ASCII_|V_SPC);.|
|000011f0| 09 09 4c 69 6e 65 28 62 | 6f 75 6e 64 73 2e 72 69 |..Line(b|ounds.ri|
|00001200| 67 68 74 20 2d 20 62 6f | 75 6e 64 73 2e 6c 65 66 |ght - bo|unds.lef|
|00001210| 74 20 2d 20 31 2c 20 30 | 29 3b 0d 09 7d 0d 09 50 |t - 1, 0|);..}..P|
|00001220| 65 6e 50 61 74 28 6d 79 | 42 6c 61 63 6b 29 3b 0d |enPat(my|Black);.|
|00001230| 09 46 72 61 6d 65 52 65 | 63 74 28 26 62 6f 75 6e |.FrameRe|ct(&boun|
|00001240| 64 73 29 3b 0d 09 54 65 | 78 74 46 61 63 65 28 30 |ds);..Te|xtFace(0|
|00001250| 29 3b 0d 09 66 6f 72 20 | 28 76 20 3d 20 30 3b 20 |);..for |(v = 0; |
|00001260| 76 20 3c 20 31 36 3b 20 | 76 2b 2b 29 20 7b 0d 09 |v < 16; |v++) {..|
|00001270| 09 66 6f 72 20 28 68 20 | 3d 20 30 3b 20 68 20 3c |.for (h |= 0; h <|
|00001280| 20 31 36 3b 20 68 2b 2b | 29 20 7b 0d 09 09 09 63 | 16; h++|) {....c|
|00001290| 68 20 3d 20 76 20 2a 20 | 31 36 20 2b 20 68 3b 0d |h = v * |16 + h;.|
|000012a0| 09 09 09 69 66 20 28 63 | 68 20 3c 20 33 32 29 20 |...if (c|h < 32) |
|000012b0| 7b 0d 09 09 09 09 54 65 | 78 74 53 69 7a 65 28 39 |{.....Te|xtSize(9|
|000012c0| 29 3b 0d 09 09 09 09 4d | 6f 76 65 44 72 61 77 50 |);.....M|oveDrawP|
|000012d0| 53 74 72 28 6c 6f 77 41 | 73 63 69 69 5b 63 68 5d |Str(lowA|scii[ch]|
|000012e0| 2c 20 0d 09 09 09 09 09 | 20 20 20 20 20 41 53 43 |, ......|     ASC|
|000012f0| 49 49 5f 48 5f 45 44 47 | 45 20 2b 20 68 20 2a 20 |II_H_EDG|E + h * |
|00001300| 41 53 43 49 49 5f 48 5f | 53 50 43 20 2d 20 34 2c |ASCII_H_|SPC - 4,|
|00001310| 0d 09 09 09 09 09 20 20 | 20 20 20 41 53 43 49 49 |......  |   ASCII|
|00001320| 5f 56 5f 45 44 47 45 20 | 2b 20 76 20 2a 20 41 53 |_V_EDGE |+ v * AS|
|00001330| 43 49 49 5f 56 5f 53 50 | 43 20 2d 20 31 29 3b 0d |CII_V_SP|C - 1);.|
|00001340| 09 09 09 7d 20 65 6c 73 | 65 20 7b 0d 09 09 09 09 |...} els|e {.....|
|00001350| 54 65 78 74 53 69 7a 65 | 28 31 32 29 3b 0d 09 09 |TextSize|(12);...|
|00001360| 09 09 4d 6f 76 65 54 6f | 28 41 53 43 49 49 5f 48 |..MoveTo|(ASCII_H|
|00001370| 5f 45 44 47 45 20 2b 20 | 68 20 2a 20 41 53 43 49 |_EDGE + |h * ASCI|
|00001380| 49 5f 48 5f 53 50 43 2c | 0d 09 09 09 09 20 20 20 |I_H_SPC,|.....   |
|00001390| 20 20 20 20 41 53 43 49 | 49 5f 56 5f 45 44 47 45 |    ASCI|I_V_EDGE|
|000013a0| 20 2b 20 76 20 2a 20 41 | 53 43 49 49 5f 56 5f 53 | + v * A|SCII_V_S|
|000013b0| 50 43 29 3b 0d 09 09 09 | 09 44 72 61 77 43 68 61 |PC);....|.DrawCha|
|000013c0| 72 28 63 68 29 3b 0d 09 | 09 09 7d 0d 09 09 7d 0d |r(ch);..|..}...}.|
|000013d0| 09 7d 0d 7d 0d 0d 0d 00 | 00 00 00 00 00 00 00 00 |.}.}....|........|
|000013e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001400| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00001410| 00 00 30 58 08 73 74 72 | 69 6e 67 2e 68 00 00 00 |..0X.str|ing.h...|
|00001420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001430| 0e 43 61 6c 63 44 41 5f | 41 53 43 49 49 2e 63 53 |.CalcDA_|ASCII.cS|
|00001440| 02 00 00 00 54 45 58 54 | 4b 41 48 4c 00 00 00 12 |....TEXT|KAHL....|
|00001450| 00 00 54 45 58 54 4b 41 | 48 4c 00 00 00 12 00 60 |..TEXTKA|HL.....`|
|00001460| 00 00 37 ec 00 00 00 00 | 00 00 00 00 00 00 00 00 |..7.....|........|
|00001470| 00 00 a2 89 ec cb 00 00 | 13 57 00 00 01 5c 00 00 |........|.W...\..|
|00001480| 00 00 00 00 00 00 00 00 | 00 00 03 43 25 00 00 00 |........|...C%...|
|00001490| 30 5a 07 62 75 66 69 6f | 2e 63 00 00 00 00 00 00 |0Z.bufio|.c......|
|000014a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014b0| 00 00 00 00 03 44 25 00 | 00 00 30 5a 07 65 72 72 |.....D%.|..0Z.err|
|000014c0| 6e 6f 2e 63 00 00 00 00 | 00 00 00 00 00 00 00 00 |no.c....|........|
|000014d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 03 46 |........|.......F|
|000014e0| 25 00 00 00 30 5a 07 66 | 72 65 61 64 2e 63 00 00 |%...0Z.f|read.c..|
|000014f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001500| 00 00 00 04 00 06 00 08 | 00 00 00 0a 00 09 06 4d |........|.......M|
|00001510| 6f 6e 61 63 6f 69 00 00 | 01 00 00 00 01 16 00 00 |onacoi..|........|
|00001520| 00 16 00 00 00 46 00 22 | 58 44 06 fc 00 00 00 1c |.....F."|XD......|
|00001530| 00 46 00 01 45 54 41 42 | 00 00 00 12 45 46 4e 54 |.F..ETAB|....EFNT|
|00001540| 00 00 00 1e 03 ec ff ff | 00 00 00 00 00 22 57 40 |........|....."W@|
|00001550| 03 eb ff ff 00 00 00 08 | 00 22 56 dc 00 00 00 00 |........|."V.....|
|00001560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+